From: Kevin Ryde <user42@zip.com.au>
Date: Tue, 15 Mar 2011 02:36:07 +0000 (-0400)
Subject: * lisp/help-fns.el (variable-at-point): Skip leading quotes, if any
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~4389
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=b4222280904cb7afa64e83b30b7f0f16df62989b;p=emacs.git

* lisp/help-fns.el (variable-at-point): Skip leading quotes, if any
(bug#8253).
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 117744b5ad3..8790f045a30 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-03-15  Kevin Ryde  <user42@zip.com.au>
+
+	* help-fns.el (variable-at-point): Skip leading quotes, if any
+	(bug#8253).
+
 2011-03-15  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* emacs-lisp/bytecomp.el (byte-compile-save-excursion): Change the
diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index e27a1e47b5c..ede80f858bf 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -534,6 +534,7 @@ If ANY-SYMBOL is non-nil, don't insist the symbol be bound."
   (with-syntax-table emacs-lisp-mode-syntax-table
     (or (condition-case ()
 	    (save-excursion
+	      (skip-chars-forward "'")
 	      (or (not (zerop (skip-syntax-backward "_w")))
 		  (eq (char-syntax (following-char)) ?w)
 		  (eq (char-syntax (following-char)) ?_)